home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / origami2.arc / JET.BAS (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  18.3 KB  |  858 lines
  1. 10  REM *** JET PLANE ***
  2. 15  SCREEN 1,0:CLS:KEY OFF: COLOR 1,15
  3. 20  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  4. 25  LOCATE 12,1:PRINT FNCEN$("JET PLANE",40)
  5. 30  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  6. 35  PRINT FNCEN$("(C) Copyright 1985 George Furiya",40)
  7. 40  PRINT FNCEN$("All Rights Reserved",40)
  8. 45  FOR K=1 TO 2500:NEXT K
  9. 50  CLS
  10. 55  FOR H=319 TO 1 STEP -318
  11. 60  LINE(319,39)-(H,40),3
  12. 65  LINE(319,41)-(H,40),3
  13. 70  LINE(319,39)-(H+1,40),0
  14. 75  LINE(319,41)-(H+1,40),0
  15. 80  NEXT H
  16. 85  FOR A=0 TO 20
  17. 90  OUT 66,A:OUT 66,A
  18. 95  OUT 97,(INP(97) OR 3)
  19. 100  NEXT A
  20. 105  SOUND 37,0
  21. 110  CLS
  22. 115  FOR H=1 TO 319 STEP 318
  23. 120  LINE(1,69)-(H,70),3
  24. 125  LINE(1,71)-(H,70),3
  25. 130  LINE(1,69)-(H-1,70),0
  26. 135  LINE(1,71)-(H-1,70),0
  27. 140  NEXT H
  28. 145  FOR A=0 TO 20
  29. 150  OUT 66,A:OUT 66,A
  30. 155  OUT 97,(INP(97) OR 3)
  31. 160  NEXT A
  32. 165  SOUND 37,0
  33. 170  CLS
  34. 175  FOR K=1 TO 500:NEXT K
  35. 180  FOR H=319 TO 1 STEP -318
  36. 185  LINE(319,39)-(H,40),3
  37. 190  LINE(319,41)-(H,40),3
  38. 195  LINE(319,39)-(H+1,40),0
  39. 200  LINE(319,41)-(H+1,40),0
  40. 205  NEXT H
  41. 210  FOR A=0 TO 20
  42. 215  OUT 66,A:OUT 66,A
  43. 220  OUT 97,(INP(97) OR 3)
  44. 225  NEXT A
  45. 230  SOUND 37,0
  46. 235  CLS
  47. 240                             '///end flash across///
  48. 245  FOR K=1 TO 500:NEXT K
  49. 250  LOCATE 12,1        '***Textpad***
  50. 255  PRINT FNCEN$("Hey, what was THAT?!!",40)
  51. 260  FOR K=1 TO 1500:NEXT K
  52. 265  CLS
  53. 270  LOCATE 12,1
  54. 275  PRINT FNCEN$("Was it a bird?",40)
  55. 280  FOR K=1 TO 1500:NEXT K
  56. 285  CLS
  57. 290  FOR H=319 TO 1 STEP -318
  58. 295  LINE(319,39)-(H,40),3
  59. 300  LINE(319,41)-(H,40),3
  60. 305  LINE(319,39)-(H+1,40),0
  61. 310  LINE(319,41)-(H+1,40),0
  62. 315  NEXT H
  63. 320  FOR A=0 TO 20
  64. 325  OUT 66,A:OUT 66,A
  65. 330  OUT 97,(INP(97) OR 3)
  66. 335  NEXT A
  67. 340  SOUND 37,0
  68. 345  CLS
  69. 350  FOR H=1 TO 319 STEP 318
  70. 355  LINE(1,69)-(H,70),3
  71. 360  LINE(1,71)-(H,70),3
  72. 365  LINE(1,69)-(H-1,70),0
  73. 370  LINE(1,71)-(H-1,70),0
  74. 375  NEXT H
  75. 380  FOR A=0 TO 20
  76. 385  OUT 66,A:OUT 66,A
  77. 390  OUT 97,(INP(97) OR 3)
  78. 395  NEXT A
  79. 400  SOUND 37,0
  80. 405  CLS
  81. 410  FOR K=1 TO 500:NEXT K
  82. 415  FOR H=319 TO 1 STEP -318
  83. 420  LINE(319,39)-(H,40),3
  84. 425  LINE(319,41)-(H,40),3
  85. 430  LINE(319,39)-(H+1,40),0
  86. 435  LINE(319,41)-(H+1,40),0
  87. 440  NEXT H
  88. 445  FOR A=0 TO 20
  89. 450  OUT 66,A:OUT 66,A
  90. 455  OUT 97,(INP(97) OR 3)
  91. 460  NEXT A
  92. 465  SOUND 37,0
  93. 470  CLS
  94. 475                             '///end flash across///
  95. 480  FOR K=1 TO 750:NEXT K
  96. 485  LOCATE 12,1        '***Textpad***
  97. 490  PRINT FNCEN$("Is it Superman?",40)
  98. 495  FOR K=1 TO 1500:NEXT K
  99. 500  CLS
  100. 505  FOR H=319 TO 1 STEP -318
  101. 510  LINE(319,39)-(H,40),3
  102. 515  LINE(319,41)-(H,40),3
  103. 520  LINE(319,39)-(H+1,40),0
  104. 525  LINE(319,41)-(H+1,40),0
  105. 530  NEXT H
  106. 535  FOR A=0 TO 20
  107. 540  OUT 66,A:OUT 66,A
  108. 545  OUT 97,(INP(97) OR 3)
  109. 550  NEXT A
  110. 555  SOUND 37,0
  111. 560  CLS
  112. 565  FOR H=1 TO 319 STEP 318
  113. 570  LINE(1,69)-(H,70),3
  114. 575  LINE(1,71)-(H,70),3
  115. 580  LINE(1,69)-(H-1,70),0
  116. 585  LINE(1,71)-(H-1,70),0
  117. 590  NEXT H
  118. 595  FOR A=0 TO 20
  119. 600  OUT 66,A:OUT 66,A
  120. 605  OUT 97,(INP(97) OR 3)
  121. 610  NEXT A
  122. 615  SOUND 37,0
  123. 620  CLS
  124. 625  FOR K=1 TO 500:NEXT K
  125. 630  FOR H=319 TO 1 STEP -318
  126. 635  LINE(319,39)-(H,40),3
  127. 640  LINE(319,41)-(H,40),3
  128. 645  LINE(319,39)-(H+1,40),0
  129. 650  LINE(319,41)-(H+1,40),0
  130. 655  NEXT H
  131. 660  FOR A=0 TO 20
  132. 665  OUT 66,A:OUT 66,A
  133. 670  OUT 97,(INP(97) OR 3)
  134. 675  NEXT A
  135. 680  SOUND 37,0
  136. 685  CLS
  137. 690  LOCATE 12,1
  138. 695  PRINT FNCEN$("No, it's JET PLANE!!",40)
  139. 700  FOR K=1 TO 1500:NEXT K
  140. 705  CLS
  141. 710  LOCATE 12,1
  142. 715  PRINT FNCEN$("How would YOU like to make yourself",40)
  143. 720  FOR K=1 TO 250:NEXT K
  144. 725  PRINT FNCEN$("JET PLANE!",40)
  145. 730  FOR K=1 TO 1500:NEXT K
  146. 735  CLS
  147. 740  LOCATE 12,1
  148. 745  PRINT FNCEN$("Let's just do that.",40)
  149. 750  FOR K=1 TO 1500:NEXT K
  150. 755  CLS
  151. 760  LINE(5,10)-(315,190),3,B
  152. 765  LOCATE 6,1
  153. 770  PRINT FNCEN$("You've made paper planes before.",40)
  154. 775  LINE(5,40)-(5,47)
  155. 780  GOSUB 8000   '*** Textpad ***
  156. 785  PRINT FNCEN$("* Press <C> to continue *",40)
  157. 790  A$=INKEY$:IF A$="" GOTO 790
  158. 795  IF A$="C" OR A$="c" GOTO 805
  159. 800  GOTO 780
  160. 805  LOCATE 9,1
  161. 810  PRINT FNCEN$("In making JET PLANE, however,",40)
  162. 815  LINE(5,64)-(5,71)
  163. 820  PRINT
  164. 825  PRINT FNCEN$("the difference will be",40)
  165. 830  LINE(5,80)-(5,87)
  166. 835  PRINT
  167. 840  PRINT FNCEN$("you will be learning to make folds",40)
  168. 845  LINE(5,96)-(5,103)
  169. 850  PRINT
  170. 855  PRINT FNCEN$("you can use to make",40)
  171. 860  LINE(5,112)-(5,119)
  172. 865  PRINT
  173. 870  PRINT FNCEN$("a lot of other things as well.",40)
  174. 875  LINE(5,128)-(5,135)
  175. 880  A$=INKEY$:IF A$="" GOTO 880
  176. 885  IF A$="C" OR A$="c" GOTO 895
  177. 890  GOTO 880
  178. 895  LOCATE 20,1
  179. 900  PRINT FNCEN$("Let's begin.",40)
  180. 905  LINE(5,152)-(5,159)
  181. 910  A$=INKEY$:IF A$="" GOTO 910
  182. 915  IF A$="C" OR A$="c" GOTO 925
  183. 920  GOTO 910
  184. 925  CLS
  185. 930  LINE(5,10)-(315,190),3,B
  186. 935  LOCATE 7,1
  187. 940  PRINT FNCEN$("First, we select a sheet of paper",40)
  188. 945  LINE(5,48)-(5,55)
  189. 950  PRINT
  190. 955  PRINT FNCEN$("from the origami package",40)
  191. 960  LINE(5,64)-(5,71)
  192. 965  PRINT
  193. 970  PRINT FNCEN$("that came with your software kit",40)
  194. 975  LINE(5,80)-(5,87)
  195. 980  GOSUB 8000   '*** Textpad ***
  196. 985  PRINT FNCEN$("* Press <C> to continue *",40)
  197. 990  A$=INKEY$:IF A$="" GOTO 990
  198. 995  IF A$="C" OR A$="c" GOTO 1005
  199. 1000  GOTO 980
  200. 1005  LOCATE 15,1
  201. 1010  PRINT FNCEN$("and position it",40)
  202. 1015  LINE(5,112)-(5,119)
  203. 1020  A$=INKEY$:IF A$="" GOTO 1020
  204. 1025  IF A$="C" OR A$="c" GOTO 1035
  205. 1030  GOTO 1020
  206. 1035  LOCATE 19,1        '***Textpad***
  207. 1040  PRINT FNCEN$("precisely",40)
  208. 1045  LINE(5,144)-(5,151)
  209. 1050  A$=INKEY$:IF A$="" GOTO 1050
  210. 1055  IF A$="C" OR A$="c" GOTO 1065
  211. 1060  GOTO 1050
  212. 1065  CLS
  213. 1070  GOSUB 9000         '***Textpad***
  214. 1075  PRINT FNCEN$("SO!",40)
  215. 1080  LINE (79,100)-(160,30)
  216. 1085  LINE (79,100)-(160,170)
  217. 1090  LINE (241,100)-(160,30)
  218. 1095  LINE (241,100)-(160,170)
  219. 1100  FOR K=1 TO 750:NEXT K
  220. 1105  GOSUB 9000         '***Textpad***
  221. 1110  PRINT FNCEN$("Are you set?  If you're not, I'll wait.",40)
  222. 1115  FOR K=1 TO 1500:NEXT K
  223. 1120  GOSUB 9000         '***Textpad***
  224. 1125  PRINT FNCEN$("But if you are, press <C> to continue.",40)
  225. 1130  A$=INKEY$:IF A$="" GOTO 1130
  226. 1135  IF A$="C" OR A$="c" GOTO 1145
  227. 1140  GOTO 1120
  228. 1145  GOSUB 9000         '***Textpad***
  229. 1150  PRINT FNCEN$("We first fold this corner on the right",40)
  230. 1155  FOR K=1 TO 750:NEXT K
  231. 1160  FOR K=1 TO 15
  232. 1165  PSET(249,100):DRAW"E5D4R7D2L7D4H5"
  233. 1170  PAINT(255,100)
  234. 1175  FOR M=1 TO 25:NEXT M
  235. 1180  CIRCLE(255,100),7,0
  236. 1185  PAINT(255,100),0
  237. 1190  NEXT K
  238. 1195  FOR K=1 TO 750:NEXT K
  239. 1200  GOSUB 9000         '***Textpad***
  240. 1205  PRINT FNCEN$("over to this corner on the left",40)
  241. 1210  FOR K=1 TO 750:NEXT K
  242. 1215  FOR K=1 TO 15
  243. 1220  PSET(71,100):DRAW"H5D4L7D2R7D4E5"
  244. 1225  PAINT(65,100)
  245. 1230  FOR M=1 TO 25:NEXT M
  246. 1235  CIRCLE(65,100),7,0
  247. 1240  PAINT(65,100),0
  248. 1245  NEXT K
  249. 1250  FOR K=1 TO 750:NEXT K
  250. 1255  GOSUB 9000         '***Textpad***
  251. 1260  PRINT FNCEN$("across this line,",40)
  252. 1265  FOR K=1 TO 750:NEXT K
  253. 1270  FOR A=30 TO 170 STEP 2
  254. 1275  PSET (160,A)
  255. 1280  FOR Q=1 TO 5:NEXT Q
  256. 1285  NEXT A
  257. 1290  FOR K=1 TO 750:NEXT K
  258. 1295  GOSUB 9000         '***Textpad***
  259. 1300  PRINT FNCEN$("SO!",40)
  260. 1305  FOR K=1 TO 750:NEXT K
  261. 1310  FOR K=241 TO 160 STEP -1
  262. 1315  LINE (K,100)-(160,30),0
  263. 1320  LINE (K-1,100)-(160,30),3
  264. 1325  LINE (K,100)-(160,170),0
  265. 1330  LINE (K-1,100)-(160,170),3
  266. 1335  NEXT K
  267. 1340  FOR K=160 TO 79 STEP -1
  268. 1345  LINE (K,100)-(160,30),3
  269. 1350  LINE (K,100)-(160,170),3
  270. 1355  NEXT K
  271. 1360  FOR K=1 TO 750:NEXT K
  272. 1365  GOSUB 9000         '***Textpad***
  273. 1370  PRINT FNCEN$("Now, using your thumbnail",40)
  274. 1375  FOR K=1 TO 1500:NEXT K
  275. 1380  GOSUB 9000         '***Textpad***
  276. 1385  PRINT FNCEN$("or your straightedge,",40)
  277. 1390  FOR K=1 TO 1500:NEXT K
  278. 1395  GOSUB 9000         '***Textpad***
  279. 1400  PRINT FNCEN$("make a sharp crease along this edge,",40)
  280. 1405  FOR K=1 TO 750:NEXT K
  281. 1410  PSET(168,100):DRAW"E5 D4 R7 D2 L7 D4 H5"   '///ARROW LEFT///
  282. 1415  PAINT(174,100)
  283. 1420                                    '///FLASHLINE///
  284. 1425  FOR K=1 TO 15
  285. 1430  LINE(160,30)-(160,170),1
  286. 1435  FOR M=1 TO 25:NEXT M
  287. 1440  LINE(160,30)-(160,170),0
  288. 1445  NEXT K
  289. 1450                                    '///END FLASHLINE///
  290. 1455  PAINT(174,100),0
  291. 1460  GOSUB 9000         '***Textpad***
  292. 1465  PRINT FNCEN$("creasing once",40)
  293. 1470  FOR K=1 TO 500:NEXT K
  294. 1475  PSET(160,25):DRAW"E5 L4 U7 L2 D7 L4 F5"    '///ARROW DOWN///
  295. 1480  PAINT(160,19)
  296. 1485                                    '///CREASE DOWN///
  297. 1490  FOR K=1 TO 500:NEXT K
  298. 1495  FOR P=30 TO 170 STEP 2
  299. 1500  PSET(161,P),1
  300. 1505  PSET(162,P),1
  301. 1510  FOR Q=1 TO 10:NEXT Q
  302. 1515  NEXT P
  303. 1520  FOR P=30 TO 170 STEP 2
  304. 1525  PSET(161,P),0
  305. 1530  PSET(162,P),0
  306. 1535  NEXT P
  307. 1540                                   '///END CREASE DOWN///
  308. 1545  CIRCLE(160,19),7,0               '///ERASE ARROW DOWN///
  309. 1550  PAINT(160,19),0
  310. 1555  FOR K=1 TO 500:NEXT K
  311. 1560  GOSUB 9000         '***Textpad***
  312. 1565  PRINT FNCEN$("and creasing twice",40)
  313. 1570  FOR K=1 TO 500:NEXT K
  314. 1575  PSET(160,175):DRAW"G5 R4 D7 R2 U7 R4 H5"  '///ARROW UP///
  315. 1580  PAINT(160,181)
  316. 1585                                   '///CREASE UP///
  317. 1590  FOR K=1 TO 500:NEXT K
  318. 1595  FOR P=170 TO 30 STEP -2
  319. 1600  PSET(161,P),1
  320. 1605  PSET(162,P),1
  321. 1610  FOR Q=1 TO 10:NEXT Q
  322. 1615  NEXT P
  323. 1620  FOR P=170 TO 30 STEP -2
  324. 1625  PSET(161,P),0
  325. 1630  PSET(162,P),0
  326. 1635  NEXT P
  327. 1640                                   '///END CREASE UP///
  328. 1645  CIRCLE(160,181),7,0              '///ERASE ARROW UP///
  329. 1650  PAINT(160,181),0
  330. 1655  FOR K=1 TO 500:NEXT K
  331. 1660  GOSUB 9000         '***Textpad***
  332. 1665  PRINT FNCEN$("to make sure the crease is sharp,",40)
  333. 1670  FOR K=1 TO 1500:NEXT K
  334. 1675  GOSUB 9000         '***Textpad***
  335. 1680  PRINT FNCEN$("and return!",40)
  336. 1685  FOR K=1 TO 750:NEXT K
  337. 1690  FOR K=79 TO 160
  338. 1695  LINE (79,100)-(160,30),3
  339. 1700  LINE (K+1,100)-(160,30),0
  340. 1705  LINE (79,100)-(160,170),3
  341. 1710  LINE (K+1,100)-(160,170),0
  342. 1715  NEXT K
  343. 1720  FOR K=30 TO 170 STEP 2
  344. 1725  PSET(160,K),3
  345. 1730  NEXT K
  346. 1735  FOR K=180 TO 241
  347. 1740  LINE(K,100)-(160,30),0
  348. 1745  LINE(K+1,100)-(160,30),3
  349. 1750  LINE(K,100)-(160,170),0
  350. 1755  LINE(K+1,100)-(160,170),3
  351. 1760  NEXT K
  352. 1765  FOR K=1 TO 750:NEXT K
  353. 1770  GOSUB 9000   '*** Textpad ***
  354. 1775  PRINT FNCEN$("Press <C> to continue.",40)
  355. 1780  A$=INKEY$:IF A$="" GOTO 1780
  356. 1785  IF A$="C" OR A$="c" GOTO 1795
  357. 1790  GOTO 1770
  358. 1795  GOSUB 9000         '***Textpad***
  359. 1800  PRINT FNCEN$("Our next folds take these corners",40)
  360. 1805  FOR K=1 TO 750:NEXT K
  361. 1810  FOR K=1 TO 15
  362. 1815  PSET(249,100):DRAW"E5D4R7D2L7D4H5"
  363. 1820  PAINT(255,100)
  364. 1825  PSET(71,100):DRAW"H5D4L7D2R7D4E5"
  365. 1830  PAINT(65,100)
  366. 1835  CIRCLE(255,100),7,0
  367. 1840  PAINT(255,100),0
  368. 1845  CIRCLE(65,100),7,0
  369. 1850  PAINT(65,100),0
  370. 1855  NEXT K
  371. 1860  FOR K=1 TO 750:NEXT K
  372. 1865  GOSUB 9000         '***Textpad***
  373. 1870  PRINT FNCEN$("up to this point",40)
  374. 1875  FOR K=1 TO 750:NEXT K
  375. 1880  FOR K=1 TO 15
  376. 1885  CIRCLE(160,70),5,3
  377. 1890  LINE(158,70)-(162,70),3
  378. 1895  LINE(160,68)-(160,72),3
  379. 1900  FOR M=1 TO 25:NEXT M
  380. 1905  CIRCLE(160,70),5,0
  381. 1910  LINE(158,70)-(162,70),0
  382. 1915  LINE(160,68)-(160,72),0
  383. 1920  NEXT K
  384. 1925  FOR V=60 TO 80 STEP 2
  385. 1930  PSET(160,V)
  386. 1935  NEXT V
  387. 1940  FOR K=1 TO 750:NEXT K
  388. 1945  GOSUB 9000         '***Textpad***
  389. 1950  PRINT FNCEN$("across these lines,",40)
  390. 1955  FOR K=1 TO 750:NEXT K
  391. 1960  LINE(206,70)-(160,170)
  392. 1965  LINE-(114,70)
  393. 1970  FOR K=1 TO 750:NEXT K
  394. 1975  GOSUB 9000         '***Textpad***
  395. 1980  PRINT FNCEN$("SO!",40)
  396. 1985  FOR K=1 TO 750:NEXT K
  397. 1990  FOR K=0 TO 33
  398. 1995  LINE(160,170)-(241-K,100-K),3
  399. 2000  LINE(160,170)-(241-K,100-K),0
  400. 2005  LINE(160,170)-(242-K,100-K),0
  401. 2010  NEXT K
  402. 2015  FOR H=206 TO 160 STEP -1
  403. 2020  LINE(160,170)-(H,69),3
  404. 2025  NEXT H
  405. 2030  CIRCLE(160,70),5,0
  406. 2035  PSET(160,70),0
  407. 2040  LINE(160,69)-(165,75),3,BF
  408. 2045  PSET(160,66),3:PSET(160,68),3
  409. 2050  FOR K=1 TO 750:NEXT K
  410. 2055  FOR K=0 TO 33
  411. 2060  LINE (79+K,100-K)-(160,170),3
  412. 2065  LINE(79+K,100-K)-(160,170),0
  413. 2070  LINE(78+K,100-K)-(160,170),0
  414. 2075  NEXT K
  415. 2080  FOR H=114 TO 160
  416. 2085  LINE(160,170)-(H,69),3
  417. 2090  NEXT H
  418. 2095  LINE(160,69)-(160,170),0
  419. 2100  FOR K=1 TO 750:NEXT K
  420. 2105  GOSUB 9000         '***Textpad***
  421. 2110  PRINT FNCEN$("There!  Do you remember this figure?",40)
  422. 2115  FOR K=1 TO 1500:NEXT K
  423. 2120  GOSUB 9000         '***Textpad***
  424. 2125  PRINT FNCEN$("KITE BASE",40)
  425. 2130  FOR K=1 TO 1500:NEXT K
  426. 2135  GOSUB 9000         '***Textpad***
  427. 2140  PRINT FNCEN$("We'll be seeing KITE often.",40)
  428. 2145  FOR K=1 TO 1500:NEXT K
  429. 2150  GOSUB 9000   '*** Textpad ***
  430. 2155  PRINT FNCEN$("Press <C> to continue.",40)
  431. 2160  A$=INKEY$:IF A$="" GOTO 2160
  432. 2165  IF A$="C" OR A$="c" GOTO 2175
  433. 2170  GOTO 2150
  434. 2175  GOSUB 9000         '***Textpad***
  435. 2180  PRINT FNCEN$("We next fold this corner",40)
  436. 2185  FOR K=1 TO 750:NEXT K
  437. 2190  FOR K=1 TO 15
  438. 2195  PSET(160,178):DRAW"G5R4D7R2U7R4H5"
  439. 2200  PAINT(160,184)
  440. 2205  FOR M=1 TO 25:NEXT M
  441. 2210  CIRCLE(160,184),7,0
  442. 2215  PAINT(160,184),0
  443. 2220  NEXT K
  444. 2225  FOR K=1 TO 750:NEXT K
  445. 2230  GOSUB 9000         '***Textpad***
  446. 2235  PRINT FNCEN$("up to this point",40)
  447. 2240  FOR K=1 TO 750:NEXT K
  448. 2245  FOR K=1 TO 15
  449. 2250  CIRCLE(160,80),5,0
  450. 2255  LINE(158,80)-(162,80),0
  451. 2260  LINE(160,78)-(160,82),0
  452. 2265  FOR M=1 TO 25:NEXT M
  453. 2270  CIRCLE(160,80),5,3
  454. 2275  LINE(158,80)-(162,80),3
  455. 2280  LINE(160,77)-(160,83),3
  456. 2285  NEXT K
  457. 2290  LINE(160,70)-(160,90),0
  458. 2295  FOR K=1 TO 750:NEXT K
  459. 2300  GOSUB 9000
  460. 2305  PRINT FNCEN$("over this line,",40)
  461. 2310  FOR K=1 TO 750:NEXT K
  462. 2315  FOR K=1 TO 15
  463. 2320  LINE(140,125)-(180,125),0
  464. 2325  FOR M=1 TO 25:NEXT M
  465. 2330  LINE(140,125)-(180,125),3
  466. 2335  NEXT K
  467. 2340  FOR H=140 TO 180 STEP 2
  468. 2345  PSET(H,125),0
  469. 2350  NEXT H
  470. 2355  FOR K=1 TO 750:NEXT K
  471. 2360  GOSUB 9000       '***Textpad***
  472. 2365  PRINT FNCEN$("SO!",40)
  473. 2370  FOR K=1 TO 750:NEXT K
  474. 2375  CIRCLE(160,181),7,0
  475. 2380  PAINT(160,181),0
  476. 2385  FOR V=170 TO 125 STEP -1
  477. 2390  LINE(160,V)-(180,125),3
  478. 2395  LINE(160,V+1)-(180,125),0
  479. 2400  LINE(160,V)-(140,125),3
  480. 2405  LINE(160,V+1)-(140,125),0
  481. 2410  LINE(140,127)-(146,140),0
  482. 2415  LINE(180,127)-(174,140),0
  483. 2420  NEXT V
  484. 2425  LINE(141,126)-(179,126),3
  485. 2430  CIRCLE(129,125),7,0
  486. 2435  PAINT(129,125),0
  487. 2440  CIRCLE(191,125),7,0
  488. 2445  PAINT(191,125),0
  489. 2450  FOR V=125 TO 80 STEP -1
  490. 2455  LINE(140,125)-(160,V),0
  491. 2460  LINE(140,125)-(160,V+1),3
  492. 2465  LINE(180,125)-(160,V),0
  493. 2470  LINE(180,125)-(160,V+1),3
  494. 2475  NEXT V
  495. 2480  CIRCLE(160,80),5,3
  496. 2485  LINE(158,80)-(162,80),3
  497. 2490  LINE(160,78)-(160,82),3
  498. 2495  PSET(160,76),0
  499. 2500  PSET(160,78),0
  500. 2505  PSET(160,80),0
  501. 2510  PSET(160,74),0:PSET(160,77),0
  502. 2515  PSET(160,79),0
  503. 2520  LINE(160,80)-(140,126),0
  504. 2525  LINE(160,80)-(180,126),0
  505. 2530  FOR K=1 TO 750:NEXT K
  506. 2535  GOSUB 9000       '***Textpad***
  507. 2540  PRINT FNCEN$("Press <C> to continue.",40)
  508. 2545  A$=INKEY$:IF A$="" GOTO 2545
  509. 2550  IF A$="C" OR A$="c" GOTO 2560
  510. 2555  GOTO 2535
  511. 2560  GOSUB 9000       '***Textpad***
  512. 2565  PRINT FNCEN$("Our next step folds this corner",40)
  513. 2570  FOR K=1 TO 750:NEXT K
  514. 2575  LINE(156,90)-(160,80)
  515. 2580  LINE-(164,90)
  516. 2585  LINE(156,90)-(160,100),0
  517. 2590  LINE-(164,90),0
  518. 2595  LINE-(156,90),0
  519. 2600  LINE(150,80)-(170,89),3,BF
  520. 2605  LINE(160,80)-(160,90),0
  521. 2610  FOR K=1 TO 750:NEXT K
  522. 2615  GOSUB 9000       '***Textpad***
  523. 2620  PRINT FNCEN$("down to this point",40)
  524. 2625  FOR K=1 TO 750:NEXT K
  525. 2630  FOR K=1 TO 15
  526. 2635  CIRCLE(160,140),5,3
  527. 2640  LINE(158,140)-(162,140),3
  528. 2645  LINE(160,138)-(160,142),3
  529. 2650  FOR M=1 TO 25:NEXT M
  530. 2655  CIRCLE(160,140),5,0
  531. 2660  LINE(158,140)-(162,140),0
  532. 2665  LINE(160,138)-(160,142),0
  533. 2670  NEXT K
  534. 2675  FOR K=1 TO 750:NEXT K
  535. 2680  GOSUB 9000       '***Textpad***
  536. 2685  PRINT FNCEN$("with the fold falling along this line",40)
  537. 2690  FOR K=1 TO 750:NEXT K
  538. 2695  FOR K=1 TO 15
  539. 2700  LINE(147,110)-(173,110),0
  540. 2705  FOR M=1 TO 25:NEXT M
  541. 2710  LINE(147,110)-(173,110),3
  542. 2715  NEXT K
  543. 2720  FOR H=147 TO 173 STEP 2
  544. 2725  PSET(H,110),0
  545. 2730  NEXT H
  546. 2735  FOR K=1 TO 750:NEXT K
  547. 2740  GOSUB 9000       '***Textpad***
  548. 2745  PRINT FNCEN$("SO!",40)
  549. 2750  FOR K=1 TO 750:NEXT K
  550. 2755  LINE(156,90)-(160,100)
  551. 2760  LINE-(164,90)
  552. 2765  LINE-(156,90)
  553. 2770  LINE(160,80)-(160,90)
  554. 2775  LINE(156,90)-(160,80),0
  555. 2780  LINE-(164,90),0
  556. 2785  FOR K=1 TO 750:NEXT K
  557. 2790  FOR V=80 TO 110
  558. 2795  LINE(147,110)-(160,V),0
  559. 2800  LINE-(173,110),0
  560. 2805  LINE(147,110)-(160,V),3
  561. 2810  LINE-(173,110),3
  562. 2815  PSET(160,V),0
  563. 2820  PSET(156,88),3:PSET(164,88),3
  564. 2825  PSET(152,97),3:PSET(168,97),3
  565. 2830  PSET(149,104),3:PSET(148,106),3
  566. 2835  PSET(171,104),3:PSET(172,106),3
  567. 2840  NEXT V
  568. 2845  FOR V=110 TO 140
  569. 2850  LINE(147,110)-(160,V),0
  570. 2855  LINE-(173,110),0
  571. 2860  LINE(147,110)-(160,V),3
  572. 2865  LINE-(173,110),3
  573. 2870  PSET(160,V),0
  574. 2875  LINE(147,110)-(173,110),0
  575. 2880  NEXT V
  576. 2885  LINE(147,110)-(173,110),0
  577. 2890  LINE(147,110)-(153,126),0
  578. 2895  LINE(173,110)-(167,126),0
  579. 2900  LINE(140,104)-(175,104),3
  580. 2905  LINE(140,106)-(175,106),3
  581. 2910  LINE(160,69)-(160,140),0
  582. 2915  FOR K=1 TO 750:NEXT K
  583. 2920  GOSUB 9000       '***Textpad***
  584. 2925  PRINT FNCEN$("Press <C> to continue.",40)
  585. 2930  A$=INKEY$:IF A$="" GOTO 2930
  586. 2935  IF A$="C" OR A$="c" GOTO 2945
  587. 2940  GOTO 2920
  588. 2945  GOSUB 9000       '***Textpad***
  589. 2950  PRINT FNCEN$("And now we fold this right side",40)
  590. 2955  FOR K=1 TO 750:NEXT K
  591. 2960  FOR K=1 TO 15
  592. 2965  LINE(160,30)-(206,70),0
  593. 2970  LINE-(180,126),0
  594. 2975  LINE-(167,126),0
  595. 2980  LINE-(160,140),0
  596. 2985  FOR M=1 TO 25:NEXT M
  597. 2990  LINE(160,30)-(206,69)
  598. 2995  LINE-(180,126)
  599. 3000  LINE-(167,126)
  600. 3005  LINE-(160,140)
  601. 3010  LINE(160,30)-(206,69),0
  602. 3015  NEXT K
  603. 3020  LINE(160,30)-(206,70)
  604. 3025  LINE(180,126)-(173,110),0
  605. 3030  LINE-(167,126),0
  606. 3035  FOR K=1 TO 750:NEXT K
  607. 3040  GOSUB 9000       '***Textpad***
  608. 3045  PRINT FNCEN$("over to the left on the hidden side,",40)
  609. 3050  FOR K=1 TO 750:NEXT K
  610. 3055  FOR K=1 TO 15
  611. 3060  LINE(160,30)-(114,70),0
  612. 3065  LINE-(140,126),0
  613. 3070  LINE-(153,126),0
  614. 3075  LINE-(160,140),0
  615. 3080  FOR M=1 TO 25:NEXT M
  616. 3085  LINE(160,30)-(114,69)
  617. 3090  LINE-(140,126)
  618. 3095  LINE-(153,126)
  619. 3100  LINE-(160,140)
  620. 3105  LINE(160,30)-(114,69),0
  621. 3110  NEXT K
  622. 3115  LINE(160,30)-(114,70)
  623. 3120  LINE(140,126)-(147,110),0
  624. 3125  LINE-(153,126),0
  625. 3130  FOR K=1 TO 750:NEXT K
  626. 3135  GOSUB 9000       '***Textpad***
  627. 3140  PRINT FNCEN$("SO!",40)
  628. 3145  FOR K=1 TO 750:NEXT K
  629. 3150  FOR Q=0 TO 46
  630. 3155  LINE(160,30)-(206-Q,70)
  631. 3160  LINE-(180-0.435*Q,126)
  632. 3165  LINE-(167-0.152*Q,126)
  633. 3170  LINE-(160,140)
  634. 3175  LINE(160,30)-(206-Q,70),0
  635. 3180  LINE-(180-0.435*Q,126),0
  636. 3185  LINE-(167-0.152*Q,126),0
  637. 3190  LINE-(160,140),0
  638. 3195  LINE(180-0.435*Q,126)-(173-0.28*Q,110),0
  639. 3200  LINE-(167-0.152*Q,126),0
  640. 3205  LINE(180-0.435*Q,126)-(173-0.28*Q,110)
  641. 3210  LINE-(167-0.152*Q,126)
  642. 3215  LINE(160,170)-(206-Q,70),0
  643. 3220  NEXT Q
  644. 3225  LINE(160,30)-(160,140)
  645. 3230  FOR Q=0 TO 46
  646. 3235  LINE(160,30)-(160-Q,69),1
  647. 3240  LINE-(160-0.435*Q,126),1
  648. 3245  LINE-(160-0.152*Q,126),1
  649. 3250  LINE-(160,140),1
  650. 3255  LINE(160,30)-(160-Q,69),0
  651. 3260  LINE-(160-0.435*Q,126),3
  652. 3265  LINE-(160-0.152*Q,126),3
  653. 3270  LINE-(160,140),3
  654. 3275  LINE(140,126)-(147,110),0
  655. 3280  LINE-(153,126),0
  656. 3285  LINE(147,110)-(160,110),0
  657. 3290  LINE(160,30)-(160,139)
  658. 3295  NEXT Q
  659. 3300  LINE(114,70)-(160,30)
  660. 3305  LINE-(160,139)
  661. 3320  PSET(160,110),0
  662. 3325  FOR K=1 TO 250:NEXT K
  663. 3330  GOSUB 9000
  664. 3335  PRINT FNCEN$("Great!",40)
  665. 3340  FOR K=1 TO 1500:NEXT K
  666. 3345  GOSUB 9000
  667. 3350  PRINT FNCEN$("Now, we'll position ourselves",40)
  668. 3355  FOR K=1 TO 1500:NEXT K
  669. 3360  GOSUB 9000
  670. 3365  PRINT FNCEN$("more comfortably",40)
  671. 3370  FOR K=1 TO 1500:NEXT K
  672. 3375  GOSUB 9000
  673. 3380  PRINT FNCEN$("for the final folds coming up.",40)
  674. 3385  FOR K=1 TO 1500:NEXT K
  675. 3390  LINE(141,126)-(147,110),0
  676. 3395  LINE(141,126)-(147,110),0
  677. 3400  GOSUB 9000
  678. 3405  PRINT FNCEN$("One moment, please.",40)
  679. 3410  FOR K=1 TO 1500:NEXT K
  680. 3415                             '***Zapsound***
  681. 3420  FOR A=0 TO 20
  682. 3425  OUT 66,A:OUT 66,A
  683. 3430  OUT 97,(INP(97) OR 3)
  684. 3435  NEXT A
  685. 3440  SOUND 37,0
  686. 3445  FOR K=1 TO 250:NEXT K
  687. 3450  CLS
  688. 3455  LINE(60,120)-(260,120)
  689. 3460  LINE-(180,50)
  690. 3465  LINE-(80,85)
  691. 3470  LINE-(80,110)
  692. 3475  LINE-(60,120)
  693. 3480  LINE(180,50)-(180,120)
  694. 3485  PAINT(160,100),3
  695. 3490  LINE(80,85)-(110,95),0
  696. 3495  LINE-(60,119),0
  697. 3500  LINE(110,95)-(110,120),0
  698. 3505  FOR K=1 TO 750:NEXT K
  699. 3510  GOSUB 9000
  700. 3515  PRINT FNCEN$("For our final folds,",40)
  701. 3520  FOR K=1 TO 1500:NEXT K
  702. 3525  GOSUB 9000
  703. 3530  PRINT FNCEN$("we fold our wings",40)
  704. 3535  FOR K=1 TO 1500:NEXT K
  705. 3540  GOSUB 9000
  706. 3545  PRINT FNCEN$("down over this line",40)
  707. 3550  FOR K=1 TO 750:NEXT K
  708. 3555  FOR H=81 TO 180 STEP 2
  709. 3560  PSET(H,110),0
  710. 3565  NEXT H
  711. 3570  FOR H=180 TO 249 STEP 2
  712. 3575  PSET(H,110)
  713. 3580  NEXT H
  714. 3585  FOR K=1 TO 750:NEXT K
  715. 3590  GOSUB 9000   '*** <Textpad> ***
  716. 3595  PRINT FNCEN$("* Hint *",40)
  717. 3600  FOR K=1 TO 750:NEXT K
  718. 3605  PRINT FNCEN$("A straightedge would be helpful here.",40)
  719. 3610  FOR K=1 TO 1500:NEXT K
  720. 3615  FOR A=0 TO 20
  721. 3620  OUT 66,A:OUT 66,A
  722. 3625  OUT 97,(INP(97) OR 3)
  723. 3630  NEXT A
  724. 3635  SOUND 37,0
  725. 3640  LINE(100,111)-(220,128),2,BF
  726. 3645  FOR V=111 TO 119
  727. 3650  FOR H=0 TO 90 STEP 20
  728. 3655  PSET(120+H,V),0
  729. 3660  NEXT H
  730. 3665  NEXT V
  731. 3670  FOR V=111 TO 116
  732. 3675  FOR H=0 TO 105 STEP 20
  733. 3680  PSET(110+H,V),0
  734. 3685  NEXT H
  735. 3690  NEXT V
  736. 3695  FOR V=111 TO 114
  737. 3700  FOR H=0 TO 110 STEP 10
  738. 3705  PSET(105+H,V),0
  739. 3710  NEXT H
  740. 3715  NEXT V
  741. 3720  GOSUB 9000   '*** Textpad ***
  742. 3725  PRINT FNCEN$("Press <C> to continue.",40)
  743. 3730  A$=INKEY$:IF A$="" GOTO 3730
  744. 3735  IF A$="C" OR A$="c" GOTO 3745
  745. 3740  GOTO 3700
  746. 3745  GOSUB 9000
  747. 3750  PRINT FNCEN$("in front",40)
  748. 3755  FOR K=1 TO 750:NEXT K
  749. 3760  FOR Q=0 TO 60
  750. 3765  LINE(249,110)-(180,50+Q),0
  751. 3770  LINE-(80,85+0.417*Q),0
  752. 3775  LINE-(80,109),0
  753. 3780  LINE(249,110)-(180,50+Q)
  754. 3785  LINE-(80,85+0.417*Q)
  755. 3790  LINE-(80,109)
  756. 3795  LINE(80,85+0.42*Q)-(110,95+0.25*Q),0
  757. 3800  LINE-(80,109),0
  758. 3805  LINE(110,95+0.25*Q)-(110,110),0
  759. 3810  LINE(80,85+0.42*Q)-(110,95+0.25*Q)
  760. 3815  LINE-(80,109)
  761. 3820  LINE(110,95+0.25*Q)-(110,110)
  762. 3825  NEXT Q
  763. 3830  FOR Q=0 TO 60
  764. 3835  LINE(80,110)-(249,110),0
  765. 3840  LINE(80,110)-(80,110+0.417*Q),0
  766. 3845  LINE-(180,110+Q),0
  767. 3850  LINE-(249,110),0
  768. 3855  LINE(80,110)-(80,110+0.417*Q)
  769. 3860  LINE-(180,110+Q)
  770. 3865  LINE-(249,110)
  771. 3870  NEXT Q
  772. 3875  LINE(79,110)-(79,120),0
  773. 3880  PSET(80,110),0
  774. 3885  FOR K=1 TO 750:NEXT K
  775. 3890  GOSUB 9000   '*** Textpad ***
  776. 3895  PRINT FNCEN$("Press <C> to continue.",40)
  777. 3900  A$=INKEY$:IF A$="" GOTO 3900
  778. 3905  IF A$="C" OR A$="c" GOTO 3915
  779. 3910  GOTO 3890
  780. 3915  GOSUB 9000   '*** <Textpad> ***
  781. 3920  PRINT FNCEN$("and in back.",40)
  782. 3925  FOR K=1 TO 750:NEXT K
  783. 3930  FOR Q=0 TO 60
  784. 3935  LINE(249,110)-(180,50+Q),0
  785. 3940  LINE-(79,85+0.417*Q),0
  786. 3945  LINE-(79,110),0
  787. 3950  NEXT Q
  788. 3955  FOR Q=0 TO 60
  789. 3960  LINE(80,110)-(80,110+0.417*Q),1
  790. 3965  LINE-(180,110+Q),1
  791. 3970  LINE-(249,110),1
  792. 3975  LINE(80,110)-(80,110+0.417*Q)
  793. 3980  LINE-(180,110+Q)
  794. 3985  LINE-(249,110)
  795. 3990  PSET(180,110+Q)
  796. 3995  NEXT Q
  797. 4000  LINE(79,110)-(79,120),0
  798. 4005  FOR K=1 TO 750:NEXT K
  799. 4010  GOSUB 9000   '*** Textpad ***
  800. 4015  PRINT FNCEN$("Press <C> to continue.",40)
  801. 4020  A$=INKEY$:IF A$="" GOTO 4020
  802. 4025  IF A$="C" OR A$="c" GOTO 4035
  803. 4030  GOTO 4010
  804. 4035  GOSUB 9000
  805. 4040  PRINT FNCEN$("Mission accomplished!",40)
  806. 4045  LINE(75,95)-(95,100),0
  807. 4050  LINE(180,50)-(180,66),0
  808. 4055  FOR K=1 TO 1000:NEXT K
  809. 4060  GOSUB 9000
  810. 4065  PRINT FNCEN$("Looks great!",40)
  811. 4070  FOR K=1 TO 1000:NEXT K
  812. 4075  GOSUB 9000   '*** <Textpad> ***
  813. 4080  PRINT FNCEN$("We learned a lot.",40)
  814. 4085  FOR K=1 TO 1000:NEXT K
  815. 4090  GOSUB 9000
  816. 4095  PRINT FNCEN$("Ready to emplane?",40)
  817. 4100  FOR K=1 TO 1000:NEXT K
  818. 4105  GOSUB 9000
  819. 4110  PRINT FNCEN$("All aboard!",40)
  820. 4115  FOR K=1 TO 1000:NEXT K
  821. 4120  GOSUB 9000
  822. 4125  PRINT FNCEN$("TAKEOFF!",40)
  823. 4130  FOR K=1 TO 1000:NEXT K
  824. 4135  CLS
  825. 4140  FOR H=319 TO 1 STEP -318
  826. 4145  LINE(319,109)-(H,110),3
  827. 4150  LINE(319,111)-(H,110),3
  828. 4155  LINE(319,109)-(H+1,110),0
  829. 4160  LINE(319,111)-(H+1,110),0
  830. 4165  NEXT H
  831. 4170  FOR A=0 TO 20
  832. 4175  OUT 66,A:OUT 66,A
  833. 4180  OUT 97,(INP(97) OR 3)
  834. 4185  NEXT A
  835. 4190  SOUND 37,0
  836. 4195  LINE(1,95)-(319,115),0,BF
  837. 4200  GOSUB 9000                '*** Textpad ***
  838. 4205  PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
  839. 4210  PRINT FNCEN$("     <2> - To repeat JET PLANE.",40)
  840. 4215  PRINT FNCEN$("      <3> - To exit from program.",40)
  841. 4220  E$=INPUT$(1)
  842. 4225  IF E$<"1" OR E$>"3" GOTO 4220
  843. 4230  SEL=VAL(E$)
  844. 4235  COMMON SEL
  845. 4240  CLS
  846. 4245  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  847. 4246  LINE(70,75)-(250,125),3,B
  848. 4250  ON SEL GOTO 4255,4260,4265
  849. 4255  CHAIN"a:main"
  850. 4260  CHAIN"a:jet
  851. 4265  CHAIN"a:end"
  852. 8000  LOCATE 1,1
  853. 8010  PRINT"                                        "
  854. 8030  LOCATE 1,1:RETURN
  855. 9000  LOCATE 1,1
  856. 9010  PRINT"                                                                                                                        "
  857. 9020  LOCATE 1,1:RETURN
  858.